home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 8 / Digital_Talk_08_1994-07-17_Digital_Talk_de_Side_D.d64 / dir edi (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  209 lines
  1. 100 print"[147][158]            tnt-disk-painter            "
  2. 110 dim p$(8)
  3. 200 print""
  4. 210 printtab(3)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  5. 211 printtab(3)"[221] *** main menue *** [221]"
  6. 212 printtab(3)"[221]                    [221]"
  7. 213 printtab(3)"[221] 1.............load [221]"
  8. 214 printtab(3)"[221] 2.............save [221]"
  9. 215 printtab(3)"[221] 3.............edit [221]"
  10. 216 printtab(3)"[221] 4............paint [221]"
  11. 217 printtab(3)"[221] 5.............quit [221]"
  12. 218 printtab(3)"[221]                    [221]"
  13. 219 printtab(3)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  14. 220 get a$: a=val(a$)
  15. 230 on a gosub 500,700,300,900,1600
  16. 240 goto 200
  17. 300 rem *** edit ***
  18. 310 print""
  19. 311 printtab(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  20. 312 [153][163]5)"(NULL)    *** edit ***    (NULL)
  21. 313 printtab(5)"[221]                    [221]
  22. 314 [153][163]5)"(NULL)1  ................ (NULL)
  23. 315 printtab(5)"[221]2  ................ [221]
  24. 316 [153][163]5)"(NULL)3  ................ (NULL)
  25. 317 printtab(5)"[221]4  ................ [221]
  26. 318 [153][163]5)"(NULL)5  ................ (NULL)
  27. 319 printtab(5)"[221]6  ................ [221]
  28. 320 [153][163]5)"(NULL)7  ................ (NULL)
  29. 321 printtab(5)"[221]8  ................ [221]
  30. 322 [153][163]5)"(NULL)                    (NULL)
  31. 323 printtab(5)"[221]_ = ende            [221]
  32. 324 [153][163]5)"/tantantantantantantantantantantantantantantantantantantantanexp
  33. 330 poke214,8:print
  34. 331 for i=1 to 8
  35. 332 printtab(9)p$(i)
  36. 333 next
  37. 340 x = 0 : y = 0
  38. 350 a=1393+x+y*40:b=peek(a):pokea,b or 128
  39. 355 pokea,b and 255-128
  40. 360 get a$:if a$="" then 350
  41. 370 if a$="" then if y<7 then y=y+1:goto 350
  42. 371 if a$="[145]" then if y>0 then y=y-1:goto 350
  43. 372 if a$="" then if x<15 then x=x+1:goto 350
  44. 373 if a$="[157]" then if x>0 then x=x-1:goto 350
  45. 374 if a$=chr$(13) then x=15:goto 382
  46. 375 if a$="_" then 400
  47. 380 poke646,7:poke 648,192:print"[147]"a$:poke648,4
  48. 381 b=peek(49152)
  49. 382 if x=15 then x=-1:if y<7 then y=y+1
  50. 383 if x<15 then x=x+1
  51. 390 pokea,b:goto 350
  52. 400 open1,3
  53. 405 for i = 1 to 8
  54. 410 poke214,7+i:print:poke211,9
  55. 415 p$(i)=""
  56. 420 for j = 1 to 16
  57. 430 get#1,a$
  58. 435 p$(i)=p$(i)+a$
  59. 440 next:next:close1
  60. 445 gosub 1400
  61. 450 return
  62. 500 rem *** load ***
  63. 510 print""
  64. 511 printtab(9)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  65. 512 [153][163]9)"peek name:                 peek
  66. 513 printtab(9)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
  67. 520 [153]""[163]16);:[151]19,64:[133]a$:[151]19,0
  68. 530 a$[178][200](a$,16)
  69. 540 [159]1,8,0,a$
  70. 541 [132]1,o1
  71. 542 [132]1,o2
  72. 543 [132]1,o3
  73. 544 [132]1,o4
  74. 545 [132]1,o5
  75. 546 [132]1,o6
  76. 550 [129] i[178]1 [164] 8
  77. 560 p$(i)[178]""
  78. 570 [129] j[178]1 [164] 16
  79. 580 [161]#1,a$
  80. 590 p$(i)[178]p$(i)[170]a$
  81. 600 [130]:[130]:[160]1:[142]
  82. 700 [143] *** save ***
  83. 710 [153]""
  84. 711 [153][163]9)"orlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen^
  85. 712 printtab(9)"[194] name:                 [194]
  86. 713 [153][163]9)"/lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
  87. 720 print""tab(16);:poke19,64:inputa$:poke19,0
  88. 730 a$=left$(a$,16)
  89. 740 open1,8,1,a$
  90. 741 print#1,o1
  91. 742 print#1,o2
  92. 743 print#1,o3
  93. 744 print#1,o4
  94. 745 print#1,o5
  95. 746 print#1,o6
  96. 750 for i=1 to 8
  97. 780 print#1,p$(i);
  98. 800 next:close1: return
  99. 900 rem *** paint ***
  100. 910 print""
  101. 911 printtab(7)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  102. 912 printtab(7)"[194]    paint-menue   [194]"
  103. 913 printtab(7)"[194]                  [194]"
  104. 914 printtab(7)"[194] 1.........anfang [194]"
  105. 915 printtab(7)"[194] 2...........ende [194]"
  106. 916 printtab(7)"[194] 3.....hauptmenue [194]"
  107. 917 printtab(7)"[194]                  [194]"
  108. 918 printtab(7)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  109. 920 get a$:if a$="3" then 200
  110. 921 if a$="1" then 1300
  111. 922 if a$<>"2" then 920
  112. 930 open15,8,15,"ij":for t=1 to 1000:next:open1,8,2,"#"
  113. 931 gosub 1200
  114. 932 print#15,"u1 2 0"tr;se
  115. 933 print#1,chr$(0)chr$(255);
  116. 934 for i=1 to 8
  117. 935 print#1,chr$(o1+o2*128+o3*64+o4*32+o5*16)chr$(18)chr$(0);
  118. 936 print#1,left$(p$(i)+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16);
  119. 940 for j=1 to 9:print#1,chr$(0);:next
  120. 941 print#1,chr$(o6and255)chr$(o6/256)chr$(0)chr$(0);
  121. 942 next
  122. 943 print#15,"u2 2 0"tr;se
  123. 950 rem *** letzter eintrag suchen ***
  124. 951 t=18:s=1
  125. 960 print#15,"u1 2 0"t;s
  126. 970 get#1,a$:get#1,b$
  127. 980 if asc(a$+chr$(0)) =0 then 1000
  128. 990 t=asc(a$+chr$(0)):s=asc(b$+chr$(0))
  129. 995 goto 960
  130. 1000 print#15,"u1 2 0"t;s
  131. 1010 print#1,chr$(tr)chr$(se);
  132. 1020 print#15,"u2 2 0"t;s
  133. 1030 close1:close15:goto 200
  134. 1200 rem *** frei stelle suchen ***
  135. 1210 open2,8,3,"#"
  136. 1220 print#15,"u1 3 0 18 0"
  137. 1230 print#15,"b-a 0 18 0"
  138. 1240 input#15,a,b$,tr,se
  139. 1245 printa,b$,tr,se
  140. 1250 print#15,"u2 3 0 18 0"
  141. 1260 close2
  142. 1265 if se = 0 then 1210
  143. 1270 if tr <> 18 then end
  144. 1275 print#15,"b-a 0"tr;se
  145. 1280 return
  146. 1300 rem *** anfang ***
  147. 1305 open15,8,15,"ij":for t=1 to 1000:next:open1,8,2,"#"
  148. 1310 gosub 1200
  149. 1320 print#15,"u1 2 0 18 1"
  150. 1330 print#15,"u2 2 0";tr;se
  151. 1350 print#15,"u1 2 0 18 1"
  152. 1352 print#1,chr$(tr)chr$(se);
  153. 1353 printtr,se
  154. 1354 for i=1 to 8
  155. 1356 print#1,chr$(o1+o2*128+o3*64+o4*32+o5*16)chr$(18)chr$(0);
  156. 1358 print#1,left$(p$(i)+"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]",16);
  157. 1360 for j=1 to 9:print#1,chr$(0);:next
  158. 1362 print#1,chr$(o6and255)chr$(o6/256)chr$(0)chr$(0);
  159. 1364 next
  160. 1365 print#15,"b-p 2 0"
  161. 1366 print#1,chr$(tr)chr$(se);
  162. 1370 print#15,"u2 2 0 18 1"
  163. 1380 close 1:close 15:goto 200
  164. 1400 rem *** optionen ***
  165. 1410 print""
  166. 1420 printtab(7)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  167. 1421 printtab(7)"[194]    *** optionen ***    [194]"
  168. 1422 printtab(7)"[194]                        [194]"
  169. 1423 printtab(7)"[194]  0 del 5 ??? 10 ???    [194]"
  170. 1424 printtab(7)"[194]  1 seq 6 ??? 11 ???    [194]"
  171. 1425 printtab(7)"[194]  2 prg 7 ??? 12 ???    [194]"
  172. 1426 printtab(7)"[194]  3 usr 8 ??? 13 ???    [194]"
  173. 1427 printtab(7)"[194]  4 ??? 9 ??? 14 ???    [194]"
  174. 1428 printtab(7)"[194]              15 ???    [194]"
  175. 1429 printtab(7)"[194]  type:                 [194]"
  176. 1430 printtab(7)"[194]  open/close(0-1):      [194]"
  177. 1431 printtab(7)"[194]  protect   (0/1):      [194]"
  178. 1432 printtab(7)"[194]  ???       (0/1):      [194]"
  179. 1433 printtab(7)"[194]  ???       (0/1):      [194]"
  180. 1434 printtab(7)"[194]  lenght(0-65535):      [194]"
  181. 1435 printtab(7)"[194]                        [194]"
  182. 1436 printtab(7)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  183. 1440 poke214,16:print:poke211,15:poke19,64:printo1
  184. 1450 poke214,16:print:poke211,15:poke19,64:inputa$:poke19,0:o1=val(a$)
  185. 1460 poke214,17:print:poke211,26:poke19,64:printo2
  186. 1470 poke214,17:print:poke211,26:poke19,64:inputa$:poke19,0:o2=val(a$)
  187. 1480 poke214,18:print:poke211,26:poke19,64:printo3
  188. 1490 poke214,18:print:poke211,26:poke19,64:inputa$:poke19,0:o3=val(a$)
  189. 1500 poke214,19:print:poke211,26:poke19,64:printo4
  190. 1510 poke214,19:print:poke211,26:poke19,64:inputa$:poke19,0:o4=val(a$)
  191. 1520 poke214,20:print:poke211,26:poke19,64:printo5
  192. 1530 poke214,20:print:poke211,26:poke19,64:inputa$:poke19,0:o5=val(a$)
  193. 1540 poke214,21:print:poke211,26:poke19,64:printo6
  194. 1550 poke214,21:print:poke211,26:poke19,64:inputa$:poke19,0:o6=val(a$)
  195. 1560 ifo1+o2*128+o3*64+o4*32+o5*16>255oro1+o2*128+o3*64+o4*32+o5*16<0then1440
  196. 1570 ifo6>65535 or o6<0 then 1440
  197. 1580 return
  198. 1600 rem *** ende ***
  199. 1610 for i=1 to 50
  200. 1620 x=rnd(0)*19:y=rnd(1)*19:poke646,rnd(0)*16
  201. 1630 poke214,y:print:poke211,x
  202. 1640 printtab(x)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]
  203. 1660 [153][163]x)"peekthis little prg is peek
  204. 1680 printtab(x)"[194]from tnt-soft      [194]
  205. 1700 [153][163]x)"peekbye ! bye ! bye !  peek
  206. 1720 printtab(x)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]
  207. 1730 [130]
  208. 1740 [151]56325,0:[153]"load":[151]56325,50
  209.